Imports System.Data.SqlClient
Imports System.Xml
Public Class dHabilitacionOperador
    Public Function Existe(ByVal Legajo As String, ByVal CodigoCalificacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblHabilitacionOperadorBUSCARFiltrado", Parametros).Tables(0).Rows.Count > 0)
    End Function
    Public Function Insertar(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If
        If Valoracion <> "" Then
            Parametros.Add(New SqlParameter("@pEValoracion", Valoracion))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblHabilitacionOperadorALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal Legajo As String, ByVal CodigoCalificacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        Return CapaDeDatos.dConexion.ABM("STORE_TblHabilitacionOperadorELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        If FechaAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta))
        End If
        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If
        If Valoracion <> "" Then
            Parametros.Add(New SqlParameter("@pEValoracion", Valoracion))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblHabilitacionOperadorMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        If FechaAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta))
        End If
        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If
        If Valoracion <> "" Then
            Parametros.Add(New SqlParameter("@pEValoracion", Valoracion))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblHabilitacionOperadorBUSCARFILTRADO", Parametros)
    End Function
End Class
